(ns ensemble.primary-model)

(def *currentPage* (atom {}))
(def maximized (atom false))
(def backup-window-bounds (atom nil))

(def highlighted-samples
  {:type :category :name "HIGHLIGHTS"
   :children (map #({:type :sample :name %}) [
                                               "SAMPLES/Web/Web View"
                                               "SAMPLES/Web/H T M L Editor"
                                               "SAMPLES/Graphics 3d/Cube"
                                               "SAMPLES/Graphics 3d/Cube System"
                                               "SAMPLES/Graphics 3d/Xylophone"
                                               "SAMPLES/Media/Advanced Media"
                                               "SAMPLES/Graphics/Digital Clock"
                                               "SAMPLES/Graphics/Display Shelf"
                                               "SAMPLES/Charts/Area/Adv Area Audio Chart"
                                               "SAMPLES/Charts/Bar/Adv Bar Audio Chart"
                                               "SAMPLES/Charts/Line/Advanced Stock Line Chart"
                                               "SAMPLES/Charts/Custom/Adv Candle Stick Chart"
                                               "SAMPLES/Charts/Scatter/Advanced Scatter Chart"
                                               ])})

(def new-samples
  {:type :category :name "NEW!"
   :children (map #({:type :sample :name %}) [
                                               "SAMPLES/Canvas/Fireworks"
                                               "SAMPLES/Controls/Pagination"
                                               "SAMPLES/Controls/Color Picker"
                                               "SAMPLES/Controls/List/List View Cell Factory"
                                               "SAMPLES/Controls/Table/Table Cell Factory"
                                               "SAMPLES/Graphics/Images/Image Operator"
                                               "SAMPLES/Scenegraph/Events/Multi Touch"
                                               ])})

(defn load-samples [])

(def samples
  {:type :category :name "SAMPLES"
   :children (load-samples)})

(def docs
  {:type :category :name "API DOCUMENTATION"})

(def root
  {:type :category :name ""
   :children (mapcat :children [highlighted-samples new-samples samples docs])})
